unit U_staff;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, U_database, ImgList, DB, ADODB, DBCtrls, GridsEh, DBGridEh,
  RzButton, ExtCtrls, RzPanel,ggwsystem, DBAccess, MSAccess, MemDS,
  dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid, dxDBTLCl, dxGrClms,
  cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
  cxEdit, cxDBData, cxGridLevel, cxClasses, cxControls, cxGridCustomView,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid,
  cxDBLookupComboBox, cxCheckBox;

type
  TF_Staff = class(TF_basedata)
    mstbl_depot: TMSTable;
    ds2: TMSDataSource;
    lrgntfldtbl1id: TLargeintField;
    strngfldtbl1name: TStringField;
    strngfldtbl1pingying: TStringField;
    lrgntfldtbl1depot: TLargeintField;
    strngfldtbl1tel: TStringField;
    tbl1use: TIntegerField;
    tbl1option: TIntegerField;
    strngfldtbl1password: TStringField;
    cxgrdbtblvwGrid1DBTableView1id: TcxGridDBColumn;
    cxgrdbtblvwGrid1DBTableView1name: TcxGridDBColumn;
    cxgrdbtblvwGrid1DBTableView1pingying: TcxGridDBColumn;
    cxgrdbtblvwGrid1DBTableView1depot: TcxGridDBColumn;
    cxgrdbtblvwGrid1DBTableView1tel: TcxGridDBColumn;
    cxgrdbtblvwGrid1DBTableView1use: TcxGridDBColumn;
    cxgrdbtblvwGrid1DBTableView1option: TcxGridDBColumn;
    cxgrdbtblvwGrid1DBTableView1password: TcxGridDBColumn;
    procedure FormCreate(Sender: TObject);
    procedure strngfldtbl1nameChange(Sender: TField);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Staff: TF_Staff;

implementation

uses
  U_Dm;

{$R *.dfm}

procedure TF_Staff.FormCreate(Sender: TObject);
begin
  inherited;
mstbl_depot.Open;
tbl1.Open;
end;

procedure TF_Staff.strngfldtbl1nameChange(Sender: TField);
begin
  inherited;
tbl1.FieldByName('pingying').Value:=GetHzPy(Sender.Value);
end;

end.
